
function [obj,like] = rsfnmhtab_simul(c0);
    

global data msel paraold sub_block
     c0=trans(c0);
     para = paraold;
     para(sub_block)=c0(sub_block); 
     

     lpr =  logprior(para); 
     if imag(lpr) == 0 
     lpri = lpr;
     else 
     lpri = -10000000;
     end 
   
     like =  tloglik4(para,data); 
      
     post =  lpri+like; 
     obj=  -post; 
         

